home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).zip / Softdisk Magazette Volume 2, No. 01 (1982-09)(Softdisk)(Side B).do / INT.ALERT.PROG.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  44 lines
  1. 100  ONERR  GOTO 410
  2. 110 A$ = "300: 20 EA 03 20 66 D5 N 3F2:00 03 A6 N D7D2G": FOR I = 1 TO  LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL  -144
  3. 120  REM 
  4. 130  REM ABOVE SETS UP A ROUTINE
  5. 140  REM WHICH MAKES THE PROGRAM
  6. 150  REM RESTART WHENEVER THE
  7. 160  REM RESET KEY IS PRESSED.
  8. 170  REM (FROM "RESETTING RESET"
  9. 180  REM BY BOB CLARDY & KEVIN
  10. 190  REM KILLION,PAGES 133-135
  11. 200  REM 'ALL ABOUT APPLESOFT')
  12. 210  REM 
  13. 220  GOSUB 420
  14. 230  HOME : PRINT  CHR$(7): GR : VTAB 21
  15. 240 BC =  INT(15 * RND(1)) +1: COLOR= BC
  16. 250  FOR Y = 0 TO 39: HLIN 0,39 AT Y: NEXT 
  17. 260  PRINT "AN INTRUDER HAS PENETRATED ";: FLASH : PRINT "SECSYS-342": NORMAL : PRINT 
  18. 270  PRINT TWN$" ";: INVERSE : PRINT "POLICE";: NORMAL : PRINT " AND ";: INVERSE : PRINT "FIRE DEPARTMENT";: NORMAL : PRINT "HAVE BEEN NOTIFIED AND ARE ENROUTE...";
  19. 280 CO =  INT(16 * RND(1) +1): IF CO = OCO  OR CO = BC  THEN 280
  20. 290  COLOR= CO:OCO = CO
  21. 300  READ Y1,Y2,X: IF   NOT Y1  THEN 320
  22. 310  VLIN Y1,Y2 AT X: GOTO 300
  23. 320  RESTORE :T = T +1: IF T < >5  THEN 280
  24. 330 T = 0:BC =  INT(15 * RND(1)) +1: COLOR= BC: FOR Y = 0 TO 39: HLIN 0,39 AT Y: NEXT : GOTO 230
  25. 340  DATA 1,4,0,16,19,0,1,19,1,1,19,2,1,4,3,16,19,3,1,19,5,4,12,6,7,16,7,21,39,7,1,19,8,21,24,8,31,32,8,21,24,9,31,32,9,1,4,10,21,39,10
  26. 350  DATA 1,19,11,1,19,12,21,39,12,1,4,13,36,39,13,36,39,14,1,19,15,36,39,15,1,1,16,10,10,16,12,14,16,1,1,17,7,10,17,14,16,17,21,39,17
  27. 360  DATA 1,7,18,16,19,18,21,24,18,29,31,18,36,39,18,21,24,19,29,31,19,36,39,19,1,19,20,21,24,20,36,39,20,16,19,21,16,19,22,21,39,22
  28. 370  DATA 1,19,23,21,21,23,30,30,23,32,34,23,21,21,24,27,30,24,34,36,24,1,19,25,21,27,25,36,39,25,2,4,26,16,18,26,3,7,27,14,17,27,21,24,27
  29. 380  DATA 5,15,28,21,39,28,21,39,29,1,19,30,21,24,30,1,4,31,9,11,31,16,19,31,1,4,32,9,11,32,16,19,32,1,4,33,16,19,33,1,19,35,1,1,36,10,10,36
  30. 390  DATA 12,14,36,1,1,37,7,10,37,14,16,37,1,7,38,16,19,38
  31. 400  DATA 0,0,0
  32. 410  RESUME 
  33. 420 TWN$ = "WEST HARTFORD": RETURN 
  34. 430  REM ^  YOUR CITY OR TOWN  ^
  35. 440  REM  NO MORE THAN 13 CHARS<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  36. 65535  REM JIM GANZ,10/81 & 6/82
  37. 65535  REM 82 SPRING LANE
  38. 65535  REM W.HARTFORD, CT. 06107
  39. 65535  REM 
  40. 65535  REM CAUTION: THE ONLY WAY
  41. 65535  REM TO GET OUT OF THIS
  42. 65535  REM ONCE IT HAS BEEN RUN
  43. 65535  REM IS TO TURN OFF THE
  44. 65535  REM COMPUTER!